home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •The School House• / Math Factory™ Demo ••••• / Math Factory™ Demo •••••.rsrc / CODE_13.txt < prev    next >
Text File  |  1988-01-30  |  17KB  |  288 lines
  1. # near model CODE resource
  2. # jump table entries: 600-600 (1 of them)
  3. 00000000  0000 0000                ori.b      D0, 0x0
  4. export_75:
  5. 00000004  4E56 FDF8                link       A6, -0x0208
  6. 00000008  3B7C 0126 E1A6           move.w     [A5 - 0x1E5A], 0x126
  7. 0000000E  486D E1AC                pea.l      [A5 - 0x1E54]
  8. 00000012  4267                     clr.w      -[A7]
  9. 00000014  4267                     clr.w      -[A7]
  10. 00000016  3F3C 0200                move.w     -[A7], 0x200
  11. 0000001A  3F3C 0143                move.w     -[A7], 0x143
  12. 0000001E  A8A7                     syscall    SetRect
  13. 00000020  598F                     subq.l     A7, 4
  14. 00000022  3F2D E1A6                move.w     -[A7], [A5 - 0x1E5A]
  15. 00000026  A9BC                     syscall    GetPicture
  16. 00000028  2B5F E1A8                move.l     [A5 - 0x1E58], [A7]+
  17. 0000002C  2F2D E1A8                move.l     -[A7], [A5 - 0x1E58]
  18. 00000030  486D E1AC                pea.l      [A5 - 0x1E54]
  19. 00000034  A8F6                     syscall    DrawPicture
  20. 00000036  598F                     subq.l     A7, 4
  21. 00000038  2F3C 5049 4354           move.l     -[A7], 0x50494354 /* 'PICT' */
  22. 0000003E  3F2D E1A6                move.w     -[A7], [A5 - 0x1E5A]
  23. 00000042  A9A0                     syscall    GetResource
  24. 00000044  2B5F E1A2                move.l     [A5 - 0x1E5E], [A7]+
  25. 00000048  2F2D E1A2                move.l     -[A7], [A5 - 0x1E5E]
  26. 0000004C  A9A3                     syscall    ReleaseResource
  27. 0000004E  486D DF9A                pea.l      [A5 - 0x2066]
  28. 00000052  206D FE4C                movea.l    A0, [A5 - 0x1B4]
  29. 00000056  4868 0002                pea.l      [A0 + 0x2]
  30. 0000005A  486D E0EC                pea.l      [A5 - 0x1F14]
  31. 0000005E  486D E106                pea.l      [A5 - 0x1EFA]
  32. 00000062  4267                     clr.w      -[A7]
  33. 00000064  42A7                     clr.l      -[A7]
  34. 00000066  A8EC                     syscall    CopyBits
  35. 00000068  486D DF9A                pea.l      [A5 - 0x2066]
  36. 0000006C  206D FE4C                movea.l    A0, [A5 - 0x1B4]
  37. 00000070  4868 0002                pea.l      [A0 + 0x2]
  38. 00000074  486D E09C                pea.l      [A5 - 0x1F64]
  39. 00000078  486D E0CC                pea.l      [A5 - 0x1F34]
  40. 0000007C  4267                     clr.w      -[A7]
  41. 0000007E  42A7                     clr.l      -[A7]
  42. 00000080  A8EC                     syscall    CopyBits
  43. 00000082  486D DF9A                pea.l      [A5 - 0x2066]
  44. 00000086  206D FE4C                movea.l    A0, [A5 - 0x1B4]
  45. 0000008A  4868 0002                pea.l      [A0 + 0x2]
  46. 0000008E  486D E10E                pea.l      [A5 - 0x1EF2]
  47. 00000092  486D E196                pea.l      [A5 - 0x1E6A]
  48. 00000096  4267                     clr.w      -[A7]
  49. 00000098  42A7                     clr.l      -[A7]
  50. 0000009A  A8EC                     syscall    CopyBits
  51. 0000009C  3F3C 0014                move.w     -[A7], 0x14
  52. 000000A0  A887                     syscall    TextFont
  53. 000000A2  3F3C 000C                move.w     -[A7], 0xC
  54. 000000A6  A88A                     syscall    TextSize
  55. 000000A8  486E FED8                pea.l      [A6 - 0x128]
  56. 000000AC  4EAD 01DA                jsr        [A5 + 0x1DA /* export_55 */]
  57. 000000B0  486E FED8                pea.l      [A6 - 0x128]
  58. 000000B4  205F                     movea.l    A0, [A7]+
  59. 000000B6  1010                     move.b     D0, [A0]
  60. 000000B8  3F00                     move.w     -[A7], D0
  61. 000000BA  A888                     syscall    TextFace
  62. 000000BC  3F3C 0002                move.w     -[A7], 0x2
  63. 000000C0  A889                     syscall    TextMode
  64. 000000C2  302D FA34                move.w     D0, [A5 - 0x5CC]
  65. 000000C6  0C40 002B                cmpi.w     D0, 0x2B /* '+' */
  66. 000000CA  6600 0016                bne        +0x18 /* 000000E2 */
  67. 000000CE  487A 0262                pea.l      [PC + 0x262 /* 00000332, value 0x8202020, pstring "     Add" */]
  68. 000000D2  486E FEF8                pea.l      [A6 - 0x108]
  69. 000000D6  3F3C 00FF                move.w     -[A7], 0xFF
  70. 000000DA  4EAD 01BA                jsr        [A5 + 0x1BA /* export_51 */]
  71. 000000DE  6000 006E                bra        +0x70 /* 0000014E */
  72. label000000E2:
  73. 000000E2  0C40 002D                cmpi.w     D0, 0x2D /* '-' */
  74. 000000E6  6600 0016                bne        +0x18 /* 000000FE */
  75. 000000EA  487A 0250                pea.l      [PC + 0x250 /* 0000033C, value 0x9205375 '\t Su', pstring " Subtract" */]
  76. 000000EE  486E FEF8                pea.l      [A6 - 0x108]
  77. 000000F2  3F3C 00FF                move.w     -[A7], 0xFF
  78. 000000F6  4EAD 01BA                jsr        [A5 + 0x1BA /* export_51 */]
  79. 000000FA  6000 0052                bra        +0x54 /* 0000014E */
  80. label000000FE:
  81. 000000FE  0C40 0078                cmpi.w     D0, 0x78 /* 'x' */
  82. 00000102  6600 0016                bne        +0x18 /* 0000011A */
  83. 00000106  487A 023E                pea.l      [PC + 0x23E /* 00000346, value 0x9204D75 '\t Mu', pstring " Multiply" */]
  84. 0000010A  486E FEF8                pea.l      [A6 - 0x108]
  85. 0000010E  3F3C 00FF                move.w     -[A7], 0xFF
  86. 00000112  4EAD 01BA                jsr        [A5 + 0x1BA /* export_51 */]
  87. 00000116  6000 0036                bra        +0x38 /* 0000014E */
  88. label0000011A:
  89. 0000011A  0C40 002F                cmpi.w     D0, 0x2F /* '/' */
  90. 0000011E  6600 0016                bne        +0x18 /* 00000136 */
  91. 00000122  487A 022C                pea.l      [PC + 0x22C /* 00000350, value 0x9202020 '\t   ', pstring "   Divide" */]
  92. 00000126  486E FEF8                pea.l      [A6 - 0x108]
  93. 0000012A  3F3C 00FF                move.w     -[A7], 0xFF
  94. 0000012E  4EAD 01BA                jsr        [A5 + 0x1BA /* export_51 */]
  95. 00000132  6000 001A                bra        +0x1C /* 0000014E */
  96. label00000136:
  97. 00000136  0C40 0040                cmpi.w     D0, 0x40 /* '@' */
  98. 0000013A  6600 0012                bne        +0x14 /* 0000014E */
  99. 0000013E  487A 021A                pea.l      [PC + 0x21A /* 0000035A, value 0x9467261 '\tFra', pstring "Fractions" */]
  100. 00000142  486E FEF8                pea.l      [A6 - 0x108]
  101. 00000146  3F3C 00FF                move.w     -[A7], 0xFF
  102. 0000014A  4EAD 01BA                jsr        [A5 + 0x1BA /* export_51 */]
  103. label0000014E:
  104. 0000014E  4A2D EE1B                tst.b      [A5 - 0x11E5]
  105. 00000152  6700 0038                beq        +0x3A /* 0000018C */
  106. 00000156  486E FEF8                pea.l      [A6 - 0x108]
  107. 0000015A  486E FDF8                pea.l      [A6 - 0x208]
  108. 0000015E  4EAD 01B2                jsr        [A5 + 0x1B2 /* export_50 */]
  109. 00000162  487A 0200                pea.l      [PC + 0x200 /* 00000364, value 0x9204465 '\t De', pstring " Decimals" */]
  110. 00000166  486E FDF8                pea.l      [A6 - 0x208]
  111. 0000016A  4EAD 01CA                jsr        [A5 + 0x1CA /* export_53 */]
  112. 0000016E  486E FDF8                pea.l      [A6 - 0x208]
  113. 00000172  486E FEF8                pea.l      [A6 - 0x108]
  114. 00000176  3F3C 00FF                move.w     -[A7], 0xFF
  115. 0000017A  4EAD 01BA                jsr        [A5 + 0x1BA /* export_51 */]
  116. 0000017E  3F3C 007D                move.w     -[A7], 0x7D /* '}' */
  117. 00000182  3F3C 0020                move.w     -[A7], 0x20 /* ' ' */
  118. 00000186  A893                     syscall    MoveTo
  119. 00000188  6000 000C                bra        +0xE /* 00000196 */
  120. label0000018C:
  121. 0000018C  3F3C 0096                move.w     -[A7], 0x96
  122. 00000190  3F3C 0020                move.w     -[A7], 0x20 /* ' ' */
  123. 00000194  A893                     syscall    MoveTo
  124. label00000196:
  125. 00000196  302D E1BC                move.w     D0, [A5 - 0x1E44]
  126. 0000019A  48C0                     ext.l      D0
  127. 0000019C  2F00                     move.l     -[A7], D0
  128. 0000019E  486D FB36                pea.l      [A5 - 0x4CA]
  129. 000001A2  4EAD 00BA                jsr        [A5 + 0xBA /* export_19 */]
  130. 000001A6  486E FEF8                pea.l      [A6 - 0x108]
  131. 000001AA  486E FDF8                pea.l      [A6 - 0x208]
  132. 000001AE  4EAD 01B2                jsr        [A5 + 0x1B2 /* export_50 */]
  133. 000001B2  487A 01BA                pea.l      [PC + 0x1BA /* 0000036E, value 0x7204C65, pstring " Level " */]
  134. 000001B6  486E FDF8                pea.l      [A6 - 0x208]
  135. 000001BA  4EAD 01CA                jsr        [A5 + 0x1CA /* export_53 */]
  136. 000001BE  486D FB36                pea.l      [A5 - 0x4CA]
  137. 000001C2  486E FDF8                pea.l      [A6 - 0x208]
  138. 000001C6  4EAD 01CA                jsr        [A5 + 0x1CA /* export_53 */]
  139. 000001CA  486E FDF8                pea.l      [A6 - 0x208]
  140. 000001CE  A884                     syscall    DrawString
  141. 000001D0  486E FED8                pea.l      [A6 - 0x128]
  142. 000001D4  4EAD 01DA                jsr        [A5 + 0x1DA /* export_55 */]
  143. 000001D8  486E FED8                pea.l      [A6 - 0x128]
  144. 000001DC  4267                     clr.w      -[A7]
  145. 000001DE  4EAD 01E2                jsr        [A5 + 0x1E2 /* export_56 */]
  146. 000001E2  486E FED8                pea.l      [A6 - 0x128]
  147. 000001E6  205F                     movea.l    A0, [A7]+
  148. 000001E8  1010                     move.b     D0, [A0]
  149. 000001EA  3F00                     move.w     -[A7], D0
  150. 000001EC  A888                     syscall    TextFace
  151. 000001EE  487A 0186                pea.l      [PC + 0x186 /* 00000376 */]
  152. 000001F2  486D FB36                pea.l      [A5 - 0x4CA]
  153. 000001F6  3F3C 00FF                move.w     -[A7], 0xFF
  154. 000001FA  4EAD 01BA                jsr        [A5 + 0x1BA /* export_51 */]
  155. 000001FE  558F                     subq.l     A7, 2
  156. 00000200  486D FB36                pea.l      [A5 - 0x4CA]
  157. 00000204  A88C                     syscall    StringWidth
  158. 00000206  301F                     move.w     D0, [A7]+
  159. 00000208  48C0                     ext.l      D0
  160. 0000020A  81FC 0002                divs.w     D0, 0x2
  161. 0000020E  323C 018F                move.w     D1, 0x18F
  162. 00000212  9240                     sub.w      D1, D0
  163. 00000214  3F01                     move.w     -[A7], D1
  164. 00000216  3F3C 003F                move.w     -[A7], 0x3F /* '?' */
  165. 0000021A  A893                     syscall    MoveTo
  166. 0000021C  486D FB36                pea.l      [A5 - 0x4CA]
  167. 00000220  A884                     syscall    DrawString
  168. 00000222  558F                     subq.l     A7, 2
  169. 00000224  486D FB36                pea.l      [A5 - 0x4CA]
  170. 00000228  A88C                     syscall    StringWidth
  171. 0000022A  301F                     move.w     D0, [A7]+
  172. 0000022C  48C0                     ext.l      D0
  173. 0000022E  81FC 0002                divs.w     D0, 0x2
  174. 00000232  323C 018F                move.w     D1, 0x18F
  175. 00000236  9240                     sub.w      D1, D0
  176. 00000238  3F01                     move.w     -[A7], D1
  177. 0000023A  3F3C 0072                move.w     -[A7], 0x72 /* 'r' */
  178. 0000023E  A893                     syscall    MoveTo
  179. 00000240  486D FB36                pea.l      [A5 - 0x4CA]
  180. 00000244  A884                     syscall    DrawString
  181. 00000246  558F                     subq.l     A7, 2
  182. 00000248  486D FB36                pea.l      [A5 - 0x4CA]
  183. 0000024C  A88C                     syscall    StringWidth
  184. 0000024E  301F                     move.w     D0, [A7]+
  185. 00000250  48C0                     ext.l      D0
  186. 00000252  81FC 0002                divs.w     D0, 0x2
  187. 00000256  323C 018E                move.w     D1, 0x18E
  188. 0000025A  9240                     sub.w      D1, D0
  189. 0000025C  3F01                     move.w     -[A7], D1
  190. 0000025E  3F3C 00A8                move.w     -[A7], 0xA8
  191. 00000262  A893                     syscall    MoveTo
  192. 00000264  486D FB36                pea.l      [A5 - 0x4CA]
  193. 00000268  A884                     syscall    DrawString
  194. 0000026A  3F3C 0002                move.w     -[A7], 0x2
  195. 0000026E  A889                     syscall    TextMode
  196. 00000270  486E FED8                pea.l      [A6 - 0x128]
  197. 00000274  4EAD 01DA                jsr        [A5 + 0x1DA /* export_55 */]
  198. 00000278  486E FED8                pea.l      [A6 - 0x128]
  199. 0000027C  4267                     clr.w      -[A7]
  200. 0000027E  4EAD 01E2                jsr        [A5 + 0x1E2 /* export_56 */]
  201. 00000282  486E FED8                pea.l      [A6 - 0x128]
  202. 00000286  205F                     movea.l    A0, [A7]+
  203. 00000288  1010                     move.b     D0, [A0]
  204. 0000028A  3F00                     move.w     -[A7], D0
  205. 0000028C  A888                     syscall    TextFace
  206. 0000028E  3F3C 000E                move.w     -[A7], 0xE
  207. 00000292  A887                     syscall    TextFont
  208. 00000294  3F3C 0018                move.w     -[A7], 0x18
  209. 00000298  A88A                     syscall    TextSize
  210. 0000029A  3D7C 0032 FFFA           move.w     [A6 - 0x6], 0x32 /* '2' */
  211. 000002A0  3D7C 0032 FFF8           move.w     [A6 - 0x8], 0x32 /* '2' */
  212. 000002A6  2F07                     move.l     -[A7], D7
  213. 000002A8  7001                     moveq.l    D0, 0x01
  214. 000002AA  7E08                     moveq.l    D7, 0x08
  215. 000002AC  9E40                     sub.w      D7, D0
  216. 000002AE  6D00 007C                blt        +0x7E /* 0000032C */
  217. 000002B2  3D40 FFFE                move.w     [A6 - 0x2], D0
  218. label000002B6:
  219. 000002B6  2F07                     move.l     -[A7], D7
  220. 000002B8  7001                     moveq.l    D0, 0x01
  221. 000002BA  7E0E                     moveq.l    D7, 0x0E
  222. 000002BC  9E40                     sub.w      D7, D0
  223. 000002BE  6D00 0050                blt        +0x52 /* 00000310 */
  224. 000002C2  3D40 FFFC                move.w     [A6 - 0x4], D0
  225. label000002C6:
  226. 000002C6  302E FFFE                move.w     D0, [A6 - 0x2]
  227. 000002CA  C1FC 0070                muls.w     D0, 0x70 /* 'p' */
  228. 000002CE  322E FFFC                move.w     D1, [A6 - 0x4]
  229. 000002D2  E749                     lsl        D1.w, 3
  230. 000002D4  D041                     add.w      D0, D1
  231. 000002D6  41ED E454                lea.l      A0, [A5 - 0x1BAC]
  232. 000002DA  4870 0000                pea.l      [A0 + D0.w]
  233. 000002DE  3F2E FFFA                move.w     -[A7], [A6 - 0x6]
  234. 000002E2  3F2E FFF8                move.w     -[A7], [A6 - 0x8]
  235. 000002E6  302E FFFA                move.w     D0, [A6 - 0x6]
  236. 000002EA  0640 0011                addi.w     D0, 0x11
  237. 000002EE  3F00                     move.w     -[A7], D0
  238. 000002F0  302E FFF8                move.w     D0, [A6 - 0x8]
  239. 000002F4  0640 0014                addi.w     D0, 0x14
  240. 000002F8  3F00                     move.w     -[A7], D0
  241. 000002FA  A8A7                     syscall    SetRect
  242. 000002FC  302E FFFA                move.w     D0, [A6 - 0x6]
  243. 00000300  0640 0015                addi.w     D0, 0x15
  244. 00000304  3D40 FFFA                move.w     [A6 - 0x6], D0
  245. 00000308  526E FFFC                addq.w     [A6 - 0x4], 1
  246. 0000030C  51CF FFB8                dbf        D7, -0x4A /* 000002C6 */
  247. label00000310:
  248. 00000310  2E1F                     move.l     D7, [A7]+
  249. 00000312  3D7C 0032 FFFA           move.w     [A6 - 0x6], 0x32 /* '2' */
  250. 00000318  302E FFF8                move.w     D0, [A6 - 0x8]
  251. 0000031C  0640 0016                addi.w     D0, 0x16
  252. 00000320  3D40 FFF8                move.w     [A6 - 0x8], D0
  253. 00000324  526E FFFE                addq.w     [A6 - 0x2], 1
  254. 00000328  51CF FF8C                dbf        D7, -0x76 /* 000002B6 */
  255. label0000032C:
  256. 0000032C  2E1F                     move.l     D7, [A7]+
  257. 0000032E  4E5E                     unlink     A6
  258. 00000330  4E75                     rts
  259. 00000332  0820 2020                btst.b     -[A0], 0x20 /* ' ' */
  260. 00000336  2020                     move.l     D0, -[A0]
  261. 00000338  4164                     chk.w      D0, -[A4]
  262. 0000033A  6400 0920                bcc        +0x922 /* 00000C5C */
  263. 0000033E  5375 6274                subq.w     [A5 + D6.w * 2 + 0x74], 1
  264. 00000342  7261                     moveq.l    D1, 0x61
  265. 00000344  6374                     bls        +0x76 /* 000003BA */
  266. 00000346  0920                     btst       -[A0], D4
  267. 00000348  4D75 6C74                chk.w      D6, [A5 + D6 * 4 + 0x74]
  268. 0000034C  6970                     bvs        +0x72 /* 000003BE */
  269. 0000034E  6C79                     bge        +0x7B /* 000003C9 */
  270. 00000350  0920                     btst       -[A0], D4
  271. 00000352  2020                     move.l     D0, -[A0]
  272. 00000354  4469 7669                neg.w      [A1 + 0x7669]
  273. 00000358  6465                     bcc        +0x67 /* 000003BF */
  274. 0000035A  0946                     bchg       D6, D4
  275. 0000035C  7261                     moveq.l    D1, 0x61
  276. 0000035E  6374                     bls        +0x76 /* 000003D4 */
  277. 00000360  696F                     bvs        +0x71 /* 000003D1 */
  278. 00000362  6E73                     bgt        +0x75 /* 000003D7 */
  279. 00000364  0920                     btst       -[A0], D4
  280. 00000366  4465                     neg.w      -[A5]
  281. 00000368  6369                     bls        +0x6B /* 000003D3 */
  282. 0000036A  6D61                     blt        +0x63 /* 000003CD */
  283. 0000036C  6C73                     bge        +0x75 /* 000003E1 */
  284. 0000036E  0720                     btst       -[A0], D3
  285. 00000370  4C65 7665                movem.l    D1,D2,D3,D5,D6,A1,A2,A5,A7, -[A5]
  286. 00000374  6C20                     bge        +0x22 /* 00000396 */
  287. 00000376  0130                     .incomplete
  288.